home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00732_DE-IN mon.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  1.7 KB  |  51 lines
  1. on enterFrame
  2.   global MouseClick, video1, gTraduit, gSujet0, gListBtDec, gMessDef1, gMessSty1, g1erSprNav, g1erSprLoc, gSprSel, gBarChron, g1erSprChr, gMaxBoutons, gNumSpr
  3.   repeat with i = g1erSprChr to gMaxBoutons
  4.     puppetSprite(i, 1)
  5.     if (i < g1erSprNav) or (i > (g1erSprNav + 6)) or (i = (g1erSprNav + 3)) then
  6.       set the visible of sprite i to 1
  7.     end if
  8.   end repeat
  9.   set the visible of sprite (g1erSprLoc + 9) to 0
  10.   if gSujet0 <> "0" then
  11.     set moncod to gSujet0(Le_Code)
  12.     set monSpr to getPos(gListBtDec, moncod)
  13.     if monSpr = 0 then
  14.       alert("BUG entr┼╜e DE: , gSujet0 = " & gSujet0 && "monspr = " & monSpr)
  15.     else
  16.       gBoutons(appuie, monSpr)
  17.       set gSprSel to monSpr
  18.       set gMessDef1 to gSujet0(Le_Nom)
  19.       if word 1 of gMessDef1 <> "Homo" then
  20.         set gMessDef1 to word 1 of gMessDef1
  21.       end if
  22.       set gMessSty1 to "bold,italic"
  23.       set monEpok to gSujet0(Le_Epoque)
  24.       gBarChron(fleche, 0, 1, 2)
  25.       gBarChron(fleche, 1, monEpok, 0)
  26.       set the visible of sprite (g1erSprLoc + 9) to 1
  27.       gBoutons(habille, g1erSprNav + 1, "SUJT 1")
  28.       set the visible of sprite (g1erSprNav + 1) to 1
  29.       gBoutons(habille, g1erSprNav + 2, "COMP 1")
  30.       set the visible of sprite (g1erSprNav + 2) to 1
  31.       gBoutons(habille, g1erSprNav + 4, "PHYL 1")
  32.       set the visible of sprite (g1erSprNav + 4) to 1
  33.     end if
  34.   else
  35.     set gMessDef1 to getAt(gTraduit, 30)
  36.     set gMessSty1 to "bold"
  37.     gBarChron(fleche, 0, 1, 2)
  38.     set gSprSel to 0
  39.   end if
  40.   set the foreColor of sprite 33 to 5
  41.   set the backColor of sprite 33 to 255
  42.   set gSurvolAct to 0
  43.   set gSurvolPrec to -1
  44.   set gChapAct to "DE"
  45.   set gEtaEtud to EMPTY
  46.   set gEtudPrec to EMPTY
  47.   set gNumSpr to 0
  48.   BigPurge()
  49.   curseur(-1)
  50. end
  51.